1 ::GOTO20000
5 POKE790,107:POKE791,159:POKE792,107:POKE793,159
10 A=40192+144:A1=100:ZR=255:POKE252,0
20 DIMS%(100):DIMF%(100):DIMH%(100):DIMP%(100)
29 X2=PEEK(A)
30 FORX=1TO255:X1=PEEK(A+X):ZS=PEEK(252)
31 IFX1>X2ORX1=0THEN100
33 POKE252,PEEK(252)+1:X2=X1:NEXT
100 FORX=ZSTO0STEP-1
110 S%(X)=PEEK(A+X)
120 F%(X)=PEEK(A+X+A1)
130 H%(X)=PEEK(A+X+A1*2)
140 P%(X)=PEEK(A+X+A1*3)
150 NEXT
200 GOSUB2300
220 PRINT"ON[146]=SPLITSCREEN AN:OFF[146]=SPLITSCREEN AUS"
221 INPUT"E[146]INFUEGEN:L[146]OESCHEN:A[146]ENDERN:X[146]=ENDE";A$
230 IFLEFT$(A$,1)="E"THEN1000
231 IFLEFT$(A$,3)="OFF"THEN2200
232 IFLEFT$(A$,2)="ON"THEN700
233 IFLEFT$(A$,1)="A"THEN600
234 IFLEFT$(A$,1)="X"THENPOKE174,8:POKE175,144:SYS40848
235 IFLEFT$(A$,1)<>"L"THEN220
238 GOSUB2300
240 INPUT"WELCHEN SPLIT LOESCHEN";X
250 FORY=0TOZS:IFS%(Y)=XTHEN270
260 NEXT:GOTO200
270 S%(Y)=0:F%(Y)=0:H%(Y)=0:P%(Y)=0
280 IFPEEK(252)>0THENPOKE252,PEEK(252)-1
450 FORX=ZSTO0STEP-1
460 IFS%(X)>=S%(X+1)THEN480
463 S1=S%(X+1):S%(X+1)=S%(X):S%(X)=S1
465 F1=F%(X+1):F%(X+1)=F%(X):F%(X)=F1
467 H1=H%(X+1):H%(X+1)=H%(X):H%(X)=H1
470 P1=P%(X+1):P%(X+1)=P%(X):P%(X)=P1:GOTO450
480 NEXT
500 FORX=0TOZS+1STEP+1
510 POKEA+X,S%(X)
520 POKEA+X+A1,F%(X)
530 POKEA+X+A1*2,H%(X)
540 POKEA+X+A1*3,P%(X)
550 NEXT:RUN
600 GOSUB2300
602 INPUT"WELCHEN SPLIT AENDERN";X
605 FORY=0TOZS:IFS%(Y)=XTHEN620
610 NEXT:GOTO200
620 PRINT"SPLIT "S%(Y):INPUT"[145][157][157][157][157]";S2
630 PRINT"FARBE "F%(Y):INPUT"[145][157][157][157][157]";F2
640 PRINT"HIRES (27) "H%(Y):INPUT"[145][157][157][157][157]";H2
650 PRINT"PAGE  (21) "P%(Y):INPUT"[145][157][157][157][157]";P2
655 IFS2<257ANDS2>-1THENS%(Y)=S2
656 IFF2<257ANDF2>-1THENF%(Y)=F2
657 IFH2<257ANDH2>-1THENH%(Y)=H2
658 IFP2<257ANDP2>-1THENP%(Y)=P2
660 GOTO450
700 PRINT"EINSCHALTEN DES SPLITING IN"
710 INPUT"R[146]AHMEN  H[146]INTERGRUND  B[146]EIDEM";A$
715 POKE253,0
720 IFLEFT$(A$,1)="R"THENPOKE253,2
730 IFLEFT$(A$,1)="H"THENPOKE253,1
740 IFLEFT$(A$,1)="B"THENPOKE253,3
750 SYS40192:POKE53272,21:POKE53265,27:POKE53281,6:POKE53280,6
760 GOTO200
1000 GOSUB2300
1010 FORX=ZS+1TO1STEP-1
1020 S%(X)=S%(X-1):P%(X)=P%(X-1):F%(X)=F%(X-1):H%(X)=H%(X-1)
1030 NEXT
1040 INPUT"SPLIT";S%(0)
1050 INPUT"FARBE";F%(0)
1060 INPUT"HIRES  27[157][157][157][157]";H%(0)
1070 INPUT"PAGES  21[157][157][157][157]";P%(0)
1080 INPUT"RICHTIG (J/N)";A$:IFLEFT$(A$,1)="N"THENRUN
1090 IFLEFT$(A$,1)<>"J"THEN1080
1100 IF(S%(0)>256)OR(P%(0)>256)OR(F%(0)>256)OR(H%(0)>256)THEN1140
1105 IFSGN(S%(0))=-1ORSGN(F%(0))=-1ORSGN(H%(0))=-1ORSGN(P%(0))=-1THEN1140
1110 FORY=1TOZS:IFS%(0)=S%(Y)ORS%(0)=S%(Y)+1ORS%(0)=S%(Y)-1THEN1140
1120 NEXT
1130 POKE252,PEEK(252)+1:GOTO450
1140 S%(0)=0:H%(0)=0:P%(0)=0:F%(0)=0:GOTO450
2200 POKE631,71:POKE632,207:POKE633,50:POKE634,48:POKE635,48:POKE636,13
2210 POKE198,6:POKE253,0:SYS65091
2300 PRINT" SPLIT","FARBE","HIRES","PAGE"
2305 FORX=ZSTO0STEP-1
2310 PRINTS%(X),F%(X),H%(X),P%(X):NEXT
2320 RETURN
20000 GOSUB50000:IFPEEK(56)>143THENPOKE56,143
20010 FORX=0TO2290:POKE36864+X,PEEK(2061+X):NEXT
20015 FORX=2290TO2300:POKE36864+X,0:NEXT
20020 GOSUB55000
20030 FORX=0TO767:READS:POKE40192+X,S:NEXT:POKE2053,144
20032 GOSUB60000
20035 POKE50258,255:SYS40800
20150 REM *** DATA'S TRANSFERIEREN ***
20160 POKE790,107:POKE791,159:POKE56,143
20170 POKE792,107:POKE793,159
20180 FORX=0TO767:READS:POKE40192+X,S:NEXT
20190 A=40192+144:POKE252,0
20200 DIMS%(100):DIMF%(100):DIMH%(100):DIMP%(100)
20210 X2=PEEK(A)
20220 FORX=1TO255:X1=PEEK(A+X):ZS=PEEK(252)
20230 IFX1>X2ORX1=0THEN20250
20240 POKE252,PEEK(252)+1:X2=X1:NEXT
20250 POKE253,3:SYS40192:END
21000 REM ***DATAZEILEN ERZEUGEN ***
21003 POKE56,143
21005 INPUT"STARTZEILE,SCHRITTWEITE  22000,1 [157][157][157][157][157][157][157][157][157][157][157]";A,F:S=40192:E=40960
21010 PRINT"[147]"A"REM VON"S"BIS"E:GOTO21060
21020 L=LEN(STR$(A))+5:PRINT"[147]"A"DATA";
21030 P=PEEK(S):P$=MID$(STR$(P),2)+",":L=L+LEN(P$):IFL>81THEN21060
21040 PRINTP$;:S=S+1:IFS<=ETHEN21030
21050 PRINT"[157] ":GOTO21070
21060 PRINT"[157] ":PRINT"A="A+F":S="S":F="F":E="E":G[207]21020"
21070 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4
22000 REM VON 40192 BIS 40960
22001 DATA120,169,127,141,13,220,169,1,141,26,208,169,3,133,251,173,144,157,141
22002 DATA18,208,169,24,141,17,208,169,38,141,20,3,169,157,141,21,3,88,96,173
22003 DATA25,208,141,25,208,198,251,16,4,165,252,133,251,166,251,189,244,157
22004 DATA168,189,88,158,72,189,188,158,170,76,73,157,234,234,234,234,234,234
22005 DATA234,234,169,127,141,13,220,234,234,234,234,234,234,234,234,165,253,41
22006 DATA1,240,17,140,33,208,104,141,17,208,142,24,208,72,234,234,234,234,234
22007 DATA234,104,165,253,41,2,240,3,140,32,208,166,251,189,144,157,141,18,208
22008 DATA138,240,6,104,168,104,170,104,64,76,49,234,234,255,248,244,200,167
22009 DATA165,120,112,108,104,96,92,88,80,55,53,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22010 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22011 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
22012 DATA6,2,0,2,7,0,7,0,14,6,0,14,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22013 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22014 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,27,27,27
22015 DATA27,27,27,27,27,27,27,27,27,27,27,27,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22016 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22017 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,21
22018 DATA21,21,23,21,21,21,21,21,21,21,21,21,21,21,21,21,0,0,0,0,0,0,0,0,0,0,0
22019 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22021 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22022 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,169,144
22023 DATA133,174,169,157,133,175,76,144,159,169,255,141,2,220,108,2,160,169,0
22024 DATA170,189,135,159,157,119,2,232,224,6,208,245,134,198,32,51,165,96,82
22025 DATA85,78,58,13,0,0,0,0,169,0,141,129,2,141,131,2,165,174,141,130,2,165
22026 DATA175,141,132,2,169,0,170,189,181,159,157,119,2,232,224,9,208,245,134
22027 DATA198,108,0,160,83,89,83,52,48,56,57,53,13,234,165,43,164,44,133,34,132
22028 DATA35,160,3,200,177,34,208,251,200,152,24,101,34,160,0,145,43,165,35,105
22029 DATA0,200,145,43,136,162,3,230,34,208,2,230,35,177,34,208,244,202,208,243
22030 DATA165,34,105,2,133,45,165,35,105,0,133,46,32,115,159,76,125,168,148
50000 PRINTCHR$(14):POKE53280,0:POKE53281,0:PRINT"[147][158][211] [208] [204] [201] [212] - [211] [195] [210] [197] [197] [206]"
50005 POKE50257,16
50010 PRINT"VON":PRINT:PRINT
50020 PRINT"[202]ENS  [194]URKERT"
50030 FORTT=0TO1500:NEXT
50035 PRINT"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]":
50040 PRINT"[215]ENN [201]HNEN DER EINFARBIGE [194]ILDSCHIRM-"
50050 PRINT"ZU LANGWEILIG IST: [205]IT DIESEM [208]ROGRAMM"
50060 PRINT"KOENNEN [211]IE UNTERSCHIEDLICHE [198]ARBEN EIN-";
50070 PRINT"STELLEN ODER [212]EXT UND [200]I-[210]ES-[199]RAFIK"
50075 PRINT"MISCHEN. [211]IE WERDEN UEBERRASCHT SEIN."
50080 PRINT:PRINT"[197]S MELDET SICH MIT DEN [218]EILEN:"
50090 PRINT:PRINT"[211][208][204][201][212]     [198][193][210][194][197]     [200][201][210][197][211]     [208][193][199][197][146]"
50100 PRINT:PRINT"DARUNTER [218]AHLENREIHEN"
50110 PRINT:PRINT"SOWIE DEM [194]EFEHLS-[205]ENUE:"
50120 PRINT:PRINT"[207][206][146] = [211]PLITSCREEN AN":PRINT
50130 PRINT"[207][198][198][146]= [211]PLITSCREEN AUS":PRINT
50140 PRINT"[197][146]INFUEGEN",:PRINT"[204][146]OESCHEN",:PRINT"[193][146]ENDERN",
50150 PRINT"X[146] = [197]NDE":PRINT:PRINT
50200 PRINT" [159]       [199]LEICH GEHT'S WEITER!        [146][158]"
50999 RETURN
55000 PRINTCHR$(14):PRINT"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]"
55005 PRINT"[211][208][204][201][212][146] GIBT DIE [194]ILDSCHIRMZEILE AN,"
55010 PRINT"IN DER [198]ARBE ODER [205]ODUS WECHSELN":PRINT
55020 PRINT"[198][193][210][194][197][146] DEN [198]ARBCODE":PRINT"Z.B. 0 = SCHWARZ, 1 = WEISS USW.":PRINT
55030 PRINT"[200][201][210][197][211][146] IST DER [201]NHALT DES [214][201][195]-[210]EGISTERS"
55040 PRINT"53265: 27=[212]EXTMODUS, 59=[200]I-[210]ES-[199]RAFIK":PRINT
55050 PRINT"[208][193][199][197][146] IST DER [201]NHALT DES [214][201][195]-[210]EGISTERS"
55060 PRINT"53272: 21=[199]ROSS- , 23=[203]LEINSCHRIFT":PRINT"24=[200]I-[210]ES-[194]ILDSCHIRM":PRINT
55070 PRINT"[199]EBEN [211]IE ZUNAECHST [207][206][146] '[210]ETURN' EIN,"
55080 PRINT"DANN [210][146] '[210]ETURN'. [193]NSCHLIESSEND KOENNEN",
55090 PRINT"[211]IE IN EINZELNEN [211]PLITS [198]ARBE, [208]AGE":PRINT"UND [200]IRES AENDERN";
55100 PRINT" BZW. UEBERNEHMEN"
55110 PRINT:PRINT"[197]XPERIMENTIEREN [211]IE EINFACH MIT":PRINT"VERSCHIEDENEN [215]ERTEN UND [211]PLITS"
55120 PRINT:PRINT"[159]     [215]EITER: [204]EERTASTE DRUECKEN      [158][146]";
55200 GETW$:IFW$<>" "THEN55200
55300 PRINT"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]":
55310 PRINT:PRINT"[193]CHTUNG: [193]US TECHNISCHEN [199]RUENDEN KANN "
55320 PRINT"[211][208][204][201][212]-[211][210][197][197][206] INNERHALB VON [201][206][208][213][212] 64[146] NUR"
55330 PRINT"DEMONSTRIERT WERDEN.":PRINT:PRINT
55340 PRINT"[215]OLLEN [211]IE ES RICHTIG KENNENLERNEN ODER"
55350 PRINT"IN [201]HREN EIGENEN [208]ROGRAMMEN NUTZEN, SO"
55360 PRINT"SAVEN [211]IE JETZT MIT <CTRL> UND "CHR$(34)"S"CHR$(34)" !!"
55370 PRINT"          [163][163][163][163][163]":PRINT:PRINT"[204]OESCHEN SIE DANN [218]EILE 20032 !":PRINT
55380 PRINT"[206]AEHERE [200]INWEISE ZUR [194]ENUTZUNG VON"
55390 PRINT"[211][208][204][201][212]-[211][195][210][197][197][206] ENTNEHMEN [211]IE BITTE DEM "
55400 PRINT"[194]EIHEFT !!":PRINT
55410 PRINTTAB(03)"[213]ND NUN VIEL [211]PASS MIT"
55420 PRINTTAB(03)"EINER KLEINEN [196]EMONSTRATION"
55430 PRINTTAB(03)"DER [205]OEGLICHKEITEN DIESES [208]ROGRAMMS !"
55500 PRINT:PRINT"[159]     [215]EITER: [204]EERTASTE DRUECKEN      [158][146]";
55600 GETW$:IFW$<>CHR$(32)THEN55600
55700 PRINT"[145][159]     [197]INEN [193]UGENBLICK NOCH . . .      [146][158]";
59000 POKE50257,20:POKE50258,64:POKE50255,PEEK(50255)+1:RETURN
60000 POKE2053,137:POKE2054,54:POKE2055,51:POKE2056,48:POKE2057,48:POKE2058,48
60010 POKE2059,58 :RETURN
63000 POKE631,83:POKE632,217:POKE633,53::POKE634,48:POKE635,51:POKE636,48
63010 POKE637,55:POKE638,13:POKE198,8:POKE253,0
63020 POKE53273,PEEK(53273):POKE53274,240:SYS64789:SYS65371:SYS58260